unit dLocalEntrega;

interface
uses
classes,
dObjects;
type
Tlocal_entrega=class(TdObjects)
private
fbairro : string;
fdescrlocal : string;
fendereco : string;
fidcidade : integer;
fidcliente : integer;
fidlocalentrega : integer;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property bairro : string read fbairro write fbairro;
 property descrlocal : string read fdescrlocal write fdescrlocal;
 property endereco : string read fendereco write fendereco;
 property idcidade : integer read fidcidade write fidcidade;
 property idcliente : integer read fidcliente write fidcliente;
 property idlocalentrega : integer read fidlocalentrega write fidlocalentrega;
end;
implementation
constructor Tlocal_entrega.create;
begin
inherited;
clear;
  addPK (['idlocalentrega']);
  Tablename := 'local_entrega';
end;
destructor Tlocal_entrega.destroy;
begin
inherited destroy;
end;
procedure Tlocal_entrega.clear;
begin
 fbairro        :='';
 fdescrlocal    :='';
 fendereco      :='';
 fidcidade      :=0;
 fidcliente     :=0;
 fidlocalentrega:=0;
end;


end.
 